home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / RAMSES 2.2 / RAMSES 2.2 Extras / AuxLibExtra .DEF / MatEditor.DEF < prev    next >
Encoding:
Modula Definition  |  1996-06-21  |  2.7 KB  |  81 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE MatEditor;
  2.  
  3.   (*******************************************************************
  4.  
  5.     Module  MatEditor     (Version 1.0)
  6.  
  7.               Copyright ©1993 by Olivier Roth, Andreas Fischlin, 
  8.               and Swiss Federal Institute of Technology Zürich ETHZ 
  9.  
  10.       Purpose: provides an interactive, simple way of entering and 
  11.                  editing a matrix in a 'Dialog Machine' window.
  12.               
  13.       Remarks: uses DMWindows, DMWindIO, DMEditFields.
  14.       
  15.                  This module is part of the Mat-library, which forms 
  16.                  part of the RAMSES package.
  17.               
  18.       Programming
  19.           o Design and Implementation
  20.               O. Roth               15.11.89
  21.               A. Fischlin            28/Mai/93
  22.               
  23.           Systems Ecology Group
  24.           Swiss Federal Institute of Technology Zurich ETHZ
  25.           Department of Environmental Sciences
  26.           Grabenstr. 3
  27.           CH-8952 Schlieren/Zurich
  28.           Switzerland
  29.  
  30.           Last revision of definition:  28/Mai/93 af
  31.  
  32.   *******************************************************************)
  33.  
  34.   FROM DMWindows IMPORT WindowFrame;
  35.  
  36.   FROM Matrices IMPORT Matrix, Selection;
  37.  
  38.  
  39.  
  40.   PROCEDURE OpenMatrixEditor;
  41.   (* Invokes the Matrix Editor in a separate window in which one
  42.    * may chose interactivelly among the following commands:
  43.    * New…, Open…, Save, Save As…, Close, Show, Hide, Duplicate, Rename.
  44.    *)
  45.  
  46.   PROCEDURE CloseMatrixEditor;
  47.   (* Closes the Matrix Editor's window. *)
  48.  
  49.  
  50.   PROCEDURE ShowMatrixInWindow( VAR a: Matrix; wF: WindowFrame );
  51.   (* Opens a window with matrix "a" at location "wF".  If "a" is not
  52.    * an existent matrix (declared with MatBase.DeclMatrix) a new
  53.    * matrix of dimension 2 x 2 and name 'Untitled' is declared implicitely.
  54.    * If "wF.w" or "wF.h" are specified <= 0 then the matrix's window is
  55.    * opened as big as necessary centered on the screen.
  56.    * Closing the window interactivelly is equivalent to a call to
  57.    * "HideMatrixInWindow" (see below). *)
  58.  
  59.   PROCEDURE HideMatrixInWindow( VAR a: Matrix );
  60.   (* Closes the window in which matrix "a" is being edited. The matrix
  61.    * "a" is not removed from the list of editable matrices and can be
  62.    * reopened in a matrix edit window either interactivelly (Show) or
  63.    * with the procedure "ShowMatrixInWindow". *)
  64.  
  65.  
  66.   PROCEDURE AddMatrixToMatEdList( a: Matrix );
  67.   (* This procedure adds the matrix "a" to the list of editable matrices
  68.    * without showing it in a matrix edit window. *)
  69.  
  70.   PROCEDURE DelMatrixFromMatEdList( a: Matrix );
  71.   (* This procedure deletes the matrix "a" from the list of editable
  72.    * matrices and closes an eventual open matrix edit window. *)
  73.  
  74.  
  75.   PROCEDURE SetSelection( a: Matrix;  sel: Selection );
  76.   PROCEDURE GetSelection( a: Matrix;  VAR sel: Selection );
  77.  
  78.  
  79.  
  80. END MatEditor.
  81.